home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / GRAPHICS / FADERS.ZIP / FADETEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-25  |  292 b   |  23 lines
  1. Uses Fadeunit;
  2.  
  3. Var Buf : Array[1..4000] of Char;
  4.     z : file ;
  5.  
  6.  
  7. Begin
  8.   assign (z,'inp4.bin') ;
  9.   reset (z,1) ;
  10.   blockread (z,buf,4000) ;
  11.   close (z) ;
  12.   Move(Buf,Mem[$b800:0],4000);
  13.  
  14.  
  15. Asm
  16.  Call Fadeout
  17.  xor ax,ax
  18.   int 16h
  19.  Call Fadein
  20.  mov ax,3
  21.  int 10h
  22. end;
  23. end.